home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / PACKET / APRS805 / README / GARMN45.TXT < prev    next >
Internet Message Format  |  1997-04-16  |  1KB
  1. From: Ronald Kramer <rkramer@vaxxine.com>
  2.  
  3. Here is a file to make a history file from the Garman 45 plot output
  4. I call it GAR45HST.BAS.  Hope it helps you.
  5.  
  6. REM by Ron Kramer VE3MX July 6 1995 for Garman 45 GPS
  7. PRINT "This program takes a DATA download file from GARMAN6 decoder"
  8. PRINT "in ascii format and formats it to look like an APRS HST file"
  9. PRINT
  10. INPUT "Enter file name and path of raw GPS data"; FI$
  11. PRINT
  12. INPUT "Enter file name and path of raw GPS data"; FI$
  13. INPUT "Enter path and name of OUTPUT .HST file for APRS include .HST"; FO$
  14. INPUT "Enter Callsign to use in output with proper ssid"; b$
  15. CALL$ = MID$(b$, 1, 10)
  16. REM CALL$ = "VE3MX-15  "
  17. Sym$ = ">"
  18. OPEN FI$ FOR INPUT AS #1
  19. OPEN FO$ FOR OUTPUT AS #2
  20. DO WHILE NOT EOF(1)
  21. FOR X = 1 TO 2
  22. LINE INPUT #1, a$
  23.    lat1$ = MID$(a$, 2, 2)
  24.    lat2$ = MID$(a$, 5, 5)
  25.    lon1$ = MID$(a$, 14, 3)
  26.    lon2$ = MID$(a$, 18, 5)
  27.    dat1$ = MID$(a$, 33, 2)
  28.    tim1$ = MID$(a$, 36, 2)
  29.    tim2$ = MID$(a$, 39, 2)
  30. NEXT X
  31. PRINT #2, CALL$; TAB(11); dat1$ + tim1$ + tim2$ + " @" + dat1$; 
  32. print #2, tim1$ + tim2$ + "z" + lat1$ + lat2$ + "N/" + lon1$ + lon2$ + "W" + "v"
  33. LOOP
  34. CLOSE
  35. END
  36.